﻿Public Class Permiso
    'TODO HACER PROPIEDADES

#Region "Declaraciones"
    Private cRol As Rol
    Private cPagina As Pagina
    Private cDescripcion As String
#End Region

#Region "Constructores"
    Public Sub New()
        cRol = Nothing
        cPagina = Nothing
        cDescripcion = ""
    End Sub

    Public Sub New(ByRef pRol As Rol, ByRef pPagina As Pagina, ByVal pDescripcion As String)
        cRol = pRol
        cPagina = pPagina
        cDescripcion = pDescripcion
    End Sub
#End Region

#Region "Propiedades"
    Public Property Rol()
        Get
            Return cRol
        End Get
        Set(ByVal value)
            cRol = value
        End Set
    End Property

    Public Property Pagina()
        Get
            Return cPagina
        End Get
        Set(ByVal value)
            cPagina = value
        End Set
    End Property

    Public Property Descripcion()
        Get
            Return cDescripcion
        End Get
        Set(ByVal value)
            cDescripcion = value
        End Set
    End Property
#End Region
End Class
